home *** CD-ROM | disk | FTP | other *** search
/ The World's Largest Collection of Windows Software / The World's Largest Collection of Windows Software - Disc 1.iso / bus_fnce / _b1 / dbankwin / dbankx.bat < prev    next >
DOS Batch File  |  1994-03-18  |  3KB  |  102 lines
  1. @echo off
  2. @sendlog DBANK
  3. i:\bin\send Looking for Microsoft Windows program file ...^M^J
  4. i:\bin\send ^M^J
  5. C:
  6. if exist H:\%username%\foundwin.!@# del H:\%username%\foundwin.!@#
  7. if exist win.com goto SetEnDB
  8. if exist win.bat goto SetEnDB
  9. for %%i in (%path%) do call i:\dbank\look4win %%i
  10. if exist H:\%username%\foundwin.!@# goto found
  11. if exist c:\windows\win.com goto win1
  12. if not exist c:\windows\win.bat goto tryD
  13. :win1
  14. cd\windows
  15. goto SetEnDB
  16. :tryD
  17. if exist d:\windows\win.com goto win2
  18. if not exist d:\windows\win.bat goto tryWinC
  19. :win2
  20. D:
  21. cd\windows
  22. goto SetEnDB
  23. :tryWinC
  24. if exist c:\win\win.com goto win3
  25. if not exist c:\win\win.bat goto tryWinD
  26. :win3
  27. cd\win
  28. goto SetEnDB
  29. :tryWinD
  30. if exist d:\win\win.com goto win4
  31. if not exist d:\win\win.bat goto tryI
  32. :win4
  33. D:
  34. cd\win
  35. goto SetEnDB
  36. :tryI
  37. if exist i:\windows\win.com goto win5
  38. if not exist i:\windows\win.bat goto notfound
  39. :win5
  40. I:
  41. cd\windows
  42. goto SetEnDB
  43. :notfound
  44. i:\bin\send Dbank can only run under Microsoft Windows which is not found.^M^J
  45. i:\bin\send If you did install Windows, please include its directory name in the^M^J
  46. i:\bin\send `SET mypath=' statement of your \AUTOUSER.BAT.^M^J
  47. i:\bin\send ^M^J
  48. i:\bin\send If you wish to install Windows for use with NUSNET, please access^M^J
  49. i:\bin\send `Applications', `Others ...', then `Information' from the NUSNET Main Menu^M^J
  50. i:\bin\send for help.^M^J
  51. i:\bin\send ^M^J
  52. pause
  53. goto Return
  54. :found
  55. del H:\%username%\foundwin.!@#
  56. :
  57. :SetEnDB
  58. :
  59. i:\bin\send Setting Environment for Dbank...^M^J
  60. addpath i:\dbank > NUL
  61. ECHO @I:\dbank\dbankq.bat >H:\%username%\$NNRESET.BAT
  62. @share /L:500 >NUL
  63. if not /%temp%==/ goto Gottemp
  64. set temp=C:\
  65. :
  66. :Gottemp
  67. :
  68. rem See if Windows already loaded:
  69. if exist H:\%username%\~loaded~.!@# del H:\%username%\~loaded~.!@#
  70. set|find "windir=">H:\%username%\~inwin!~.bat
  71. call H:\%username%\~inwin!~
  72. del H:\%username%\~inwin!~.bat
  73. if exist H:\%username%\~loaded~.!@# goto WinExist
  74. goto LoadWin
  75. :
  76. :WinExist
  77. :
  78. del H:\%username%\~loaded~.!@#
  79. I:\BIN\SEND ^M^J
  80. I:\BIN\SEND Windows was already running before you invoked Dbank.^M^J
  81. I:\BIN\SEND ^M^J
  82. I:\BIN\SEND If the message `SHARE already installed' appears above,^M^J
  83. I:\BIN\SEND please use Alt+Tab to get back to Microsoft Windows,^M^J
  84. I:\BIN\SEND then `Run...' I:\DBANK\DBANK from the `File' menu of Program Manager.^M^J
  85. I:\BIN\SEND ^M^J
  86. I:\BIN\SEND If that fails, or if the message above was merely `SHARE installed',^M^J
  87. I:\BIN\SEND please use Alt+Tab to get back to Microsoft Windows,^M^J
  88. I:\BIN\SEND then end your Windows session, and then `Dbank Access' from NUSNET again.^M^J
  89. I:\BIN\SEND ^M^J
  90. I:\BIN\SEND First press any key to return to NUSNET menu, then use Alt+Tab:^M^J
  91. pause>nul
  92. rem pause
  93. goto Return
  94. :
  95. :LoadWin
  96. :
  97. call win i:\dbank\dbank.exe
  98. :
  99. :Return
  100. H:
  101. menu
  102.